home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 July
/
1988-07.d64
/
mixed modes
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
35 lines
10 rem mixed modes - copyright 1988 compute! publications, inc.
20 rem registers 17,24,32,33
30 v=49152:s=49664:o=s+82:i=s+161:df=s+209
40 forx=820to850:readd:pokex,d:next
50 print"[147]":pokes+1,2:sysi
60 pokev+18*8,114:pokev+18*8+1,186
70 pokev+32*8,1:pokev+33*8,0:pokev+32*8+1,1:pokev+33*8+1,0
80 pokev+17*8,59:pokev+17*8+1,27
90 pokev+24*8,29:pokev+24*8+1,21
100 b=8192:e=16192:n=0:gosub280
110 b=1024:e=1304:n=48:gosub280
120 b=1304:e=1744:n=32:gosub280
130 b=1744:e=2024:n=112:gosub280
140 syss
150 print"[159] sine "
160 printspc(12)"[154]high-res and text"
170 printspc(7)"(or other graphics modes)"
180 print" can be mixed on the same screen."
190 print"[158] cosine "
200 forx=100to219
210 y1=int(35+10*sin(x/10)):y2=int(170+10*cos(x/10))
220 b1=8192+int(y1/8)*320+int(x/8)*8+(y1and7)
230 b2=8192+int(y2/8)*320+int(x/8)*8+(y2and7)
240 bi=7-(xand7)
250 pokeb1,peek(b1)or(2^bi):pokeb2,peek(b2)or(2^bi)
260 nextx
270 goto270
280 bh=int(b/256):bl=b-bh*256:poke823,bl:poke824,bh
290 eh=int(e/256):el=e-eh*256:poke840,el:poke847,eh
300 poke821,n:sys820:return
310 data169,0,141,255,255,238,55,3
320 data173,55,3,208,3,238,56,3
330 data173,55,3,201,0,208,233,173
340 data56,3,201,0,208,226,96